﻿Namespace Extension

    Public Class SaveSettingsEventArgs
        Inherits EventArgs

        Public Sub New(ByVal settings As IPluginSettings)
            If settings Is Nothing Then
                Exit Sub
            End If

            ' Clone
            _Settings = New PluginSettings
            For Each name In settings.Names
                _Settings(name) = settings(name)
            Next

        End Sub

        Private _Settings As IPluginSettings
        Public ReadOnly Property Settings() As IPluginSettings
            Get
                Return _Settings
            End Get
        End Property

    End Class

End Namespace